home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00821_SU-IN en 1.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  509 b   |  18 lines
  1. on enterFrame
  2.   global g1erSprNav, exitFrame, gLocLabel, g1erSprLoc, gMaxBoutons, gEtudAct, gEtudPrec, gEtatEtud, gSujet0, gPartie, gTraduit, gScopeEnB, gScopeEnZ
  3.   set gMaxBoutons to 33
  4.   set gLocLabel to "SU:RN EN"
  5.   set the visible of sprite 2 to 1
  6.   set gEtudPrec to gEtudAct
  7.   set gEtudAct to "EN"
  8.   repeat with i = g1erSprLoc + 10 to gMaxBoutons
  9.     set the visible of sprite i to 0
  10.   end repeat
  11.   if gEtudPrec = "FI" then
  12.     nothing()
  13.   else
  14.     gScopeEnZ(Restore)
  15.     gScopeEnB(Restore)
  16.   end if
  17. end
  18.